#!/usr/bin/perl
$texte="Combien 50F en euros? ";
$motif=<>;
chomp($motif);
open(OUT,">sortie.html");
print OUT "<html><body style=\"color:white;\" bgcolor=\"black\">\n";
if ($motif)
{
  $texte=$motif;
}
$texte =~s/\,/ /g;
$texte =~s/\./ /g;
$texte =~s/\'/ /g;
@tab_mots = split(/ /,$texte);
$francs=0;
$euros=0;
for (my $i=0; $i<=$#tab_mots-1; $i++)
{
    $f="f";
    if(lc($tab_mots[$i])=~/([0..9])$f/)
    {
	$tab_mots[$i]=~s/"f"/ /g;
	$francs=$tab_mots[$i];
    }
}
$euros=$francs*0.14449;
print OUT "<p align=\"center\" style=\"color:yellow;\">La conversion de $francs francs est $euros euros</p>";
print OUT "</body></html>";
close(OUT);